1 REM  READ/HS  (LEXIKOS)   6/07/86
2 :
3 :OPEN15,8,15:POKE53280,0:POKE53281,0:POKE646,15:POKE808,237:GOTO29:
4 OPEN9,8,9,"0:"+F$+",S,R":GOSUB10:IFE>0THENE=0:RUN
5 INPUT#9,S$,N$:CLOSE9:RETURN:POKE53280,12:POKE53281,11:POKE646,15:PRINT"[147] LAST 20 LEXIKOS PLAYERS                ":FORI=1TO20:IFI<10THENPRINTI"  "N$(I)
6 IFI>9THENPRINTI" "N$(I)
7 NEXT:PRINTTAB(6)"<PRESS RETURN TO LOAD MENU>
8 [161]Z$:[139]Z$[179][177][199](13)[167]8
9 [137]14
10 E[178]0:[132]15,E,E$,JU,JU:[139]E[178]0[176]E[178]1[167]13
11 [153]"LOAD"E$:[160]9:[152]15,"I0":TX[178]TI
12 [139]TI[179]TX[170]240[167]12
13 [142]
14 [151]53280,0:[151]53281,0:[151]646,15:[151]S,0:[151]S[170]1,0:[153]"LOAD"[163]18)"WAITSTOP":[153]"STOPLOAD";[199](34);"MENU";[199](34);",8ONONON":[151]631,13:[151]632,82:[151]633,85:[151]634,78:[151]635,13:[151]198,5:[128]:
15 [153][199](166);:[153]"CMD";
16 [161]A$:[139]A$[178]""[167]16
17 [139][198](A$)[178]29[176][198](A$)[178]17[176][198](A$)[178]145[176][198](A$)[178]157[167]16
18 [139][198](A$)[178]147[176][198](A$)[178]148[176][198](A$)[178]19[176][198](A$)[178]20[167]16
19 [139]A$[178]"_"[167]25
20 [139]A$[178][199](13)[167]22
21 T$[178]T$[170]A$:[153]A$;:A$[178]"":[137]15
22 [139][195](T$)[177]25[167]T$[178][200](T$,25)
23 [139]T$[178]"Q"[167]14
24 [153]" ":[142]
25 [139][195](T$)[179]1[167]16
26 [153]"CMD  CMDCMD";:[153][199](166);:[153]"CMD";:L[178][195](T$):[139]L[179]1[167]T$[178]"":[137]28
27 T$[178][200](T$,L[171]1)
28 [137]16
29 TL$[178]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN":BL$[178]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
30 PRINT"[147]        [213]"TL$"[201]":PRINT" [213][192][192][192][192][192][192][194] LEXIKOS:  HIGH SCORE [194][192][192][192][192][192][192][201]":PRINT" [194] V1.1 [202]"TL$"[203] 1986 [194]":FORI=1TO21:PRINT" [194]"SPC(36)"[194]":NEXT:PRINT" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]":PRINTTAB(3)"EACH LEXIKOS WORD FILE HAS ITS OWN":PRINTTAB(3)"CHAMPION.  ENTER THE FILE NAME TO
31 [153][163]3)"TO READ THE CHAMP'S NAME AND SCORE.":[153]""[163]11)"ENTER (Q) TO QUITONONONONONONONONONONONONONON":[153]"WHAT FILE? --> TOCMD";:[141]15:F$[178]"#"[170]T$:[153][163]16)"TOTOTOTOTOTO":[153][163]16)" WAIT ":[141]4:[153][163]16)"ONON       ":[153][163]16)"      ":[153]"CHAMPION IS -->  "N$
32 [153]"HI SCORE IS -->  "S$:[153]"------------------------------------":[153]"(M) CALL MENU   (RETURN) NEXT FILE
33 GETZ$:IFZ$=""THEN33
34 IFZ$=CHR$(13)THEN30
35 IFZ$="M"THEN14
36 GOTO33